  package Package::Subroutine::Sugar
# **********************************
; use strict; use warnings
# ************************
; our $VERSION='0.01'
# *******************

; sub import
    { eval <<'__PERL__'
; package from
# ************
; our $VERSION='0.07'
; use Package::Subroutine 'Package::Subroutine' 
    => qw/import export findsubs mixin version/ 
__PERL__
    }
    
; sub unimport
    { delete $::{'from::'}
    }

; 1

__END__

=head1 NAME

Package::Subroutine::Sugar
  
=head1 SYNOPSIS

    use Package::Subroutine::Sugar;

    package Ican::not::program;
   
    import from 'Animal::Words' => qw/muh maeh meow/
  
    do { muh(meow()) && maeh() } # a cow sounds like a cat, followed by a goat

=head2 DESCRIPTION

This module creates the namespace C<from>. The following and methods are 
imported from L<Package::Subroutine>:
  
=over 4

=item import

=item export

=item findsubs

=item mixin

=item version

=back

As the name suggests it provides some (syntactic) sugar.
  
Please have fun with it but please think twice before using it seriously.


=head1 AUTHOR

Sebastian Knapp, <rock@ccls-online.de>

=head1 BUGS

   ; no from # this deletes from package 

Unfortunatly I'm not sure if this is the right way to do it (how it is done).

Please report more bugs or feature requests to
C<bug-package-subroutine@rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 COPYRIGHT & LICENSE

Copyleft 2007-2008 Sebastian Knapp

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut



